home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr35 / forgetpw.zip / FORGETPW.PPE (.txt) next >
PCBoard Programming Language Executable  |  1993-04-09  |  5KB  |  176 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     Print "@CLS@"
  29.     PrintLn "@X5FIS   @X0A  Current User ID: @X0B@USER@"
  30.     PrintLn "@X5FTHIS @X0A  City/State     : @X0B@CITY@"
  31.     PrintLn "@X5FYOU? @X0A  Last Time On   : @X0B@LASTDATEON@ @X0Aat @X0B@LASTTIMEON@"
  32.     PrintLn 
  33.     STRING001 = ""
  34.     InputYN "Does the above information belong to you", STRING001, 14
  35.     If (STRING001 <> YesChar()) Goto LABEL002
  36.     PrintLn "@CLS@@X0FIf you are a registered user on this system@X07 and simply forgot your password"
  37.     PrintLn "then we can help you out, by changing your password for you, if you wil first"
  38.     PrintLn "verify the following information for us:"
  39.     PrintLn 
  40.     PrintLn "@X38┌─────────────────────────────────────────────────────────────────────────@X3B┐@X07"
  41.     PrintLn "@X38│@X3E  a) Your PCBoard @X3Fserial number@X3E                                          @X3B│@X07"
  42.     PrintLn "@X38│@X3E  b) Your voice @X3Fphone number@X3E                                             @X3B│@X07"
  43.     PrintLn "@X38│@X3E  c) Your @X3Faddress@X3E                                                        @X3B│@X07"
  44.     PrintLn "@X38│@X3E  d) The @X3Fnew password@X3E you would like to use on this system               @X3B│@X07"
  45.     PrintLn "@X38│                                                                         @X3B│@X07"
  46.     PrintLn "@X38│@X31We need @XBFALL FOUR@X31 pieces of information in order to change your password!!@X3B│@X07"
  47.     PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────┘@X07"
  48.     PrintLn 
  49.     STRING001 = ""
  50.     InputYN "Would you like to confirm the above information", STRING001, 14
  51.     If (STRING001 <> YesChar()) Goto LABEL004
  52.     AdjTime 5
  53.     STRING002 = ""
  54.     STRING003 = ""
  55.     STRING004 = ""
  56.     STRING006 = ""
  57.     :LABEL001
  58.     PrintLn 
  59.     PrintLn 
  60.     InputText "What is your PCBoard Serial Number", STRING002, 14, 6
  61.     PrintLn 
  62.     PrintLn 
  63.     InputText "What is your voice phone number", STRING003, 14, 20
  64.     PrintLn 
  65.     PrintLn 
  66.     InputText "What is your street address", STRING004, 14, 40
  67.     PrintLn 
  68.     PrintLn 
  69.     InputText "City, state & zip (or province/county)", STRING005, 14, 40
  70.     PrintLn 
  71.     PrintLn 
  72.     InputText "What would you like your NEW PASSWORD to be", STRING006, 14, 12
  73.     PrintLn 
  74.     PrintLn 
  75.     STRING001 = ""
  76.     InputYN "Is all of the above information correct", STRING001, 14
  77.     PrintLn 
  78.     If (STRING001 <> YesChar()) Goto LABEL001
  79.     PrintLn "@CLS@@X03"
  80.     PrintLn "Your answers will be placed into a COMMENT where the Sysop can read them"
  81.     PrintLn "and process your request.  This is usually done within the hour, except"
  82.     PrintLn "nights, weekends and holidays."
  83.     PrintLn 
  84.     PrintLn "@X0ESorry, but we do not return calls on forgotten passwords.@X03  If you would like"
  85.     PrintLn "to speak to someone you may call us at @X0C801-261-1686 @X03during business hours."
  86.     PrintLn 
  87.     PrintLn "@X0FYou will now be placed into the message editor where you may provide any"
  88.     PrintLn "other comments and/or edit the answers you have given."
  89.     PrintLn 
  90.     More
  91.     KbdStuff "Y" + Chr(13)
  92.     KbdStuff "Serial Number: " + STRING002 + Chr(13)
  93.     KbdStuff "Voice Number : " + STRING003 + Chr(13)
  94.     KbdStuff "Address      : " + STRING004 + Chr(13)
  95.     KbdStuff "City         : " + STRING005 + Chr(13)
  96.     KbdStuff "New Password : " + STRING006 + Chr(13) + Chr(13)
  97.     End
  98.     :LABEL002
  99.     PrintLn 
  100.     PrintLn "@CLS@@X0FSince that user information did NOT belong to you@X0F, please call back using a"
  101.     PrintLn "different user-id, perhaps adding a middle initial to make your logon-id unique"
  102.     PrintLn "for this system."
  103.     :LABEL003
  104.     PrintLn "@X0A"
  105.     PrintLn "Here's an example of how to log on with a middle initial:"
  106.     PrintLn 
  107.     PrintLn "    @X0EEnter your first name?  @X07JOHN Q. PUBLIC"
  108.     PrintLn 
  109.     PrintLn "@X0AOr any other variation on your user-id may work."
  110.     PrintLn 
  111.     PrintLn "@X03If you would like to speak to someone you may call us at @X0E801-261-1686 @X03during"
  112.     PrintLn "regular business hours."
  113.     PrintLn 
  114.     Wait
  115.     PrintLn 
  116.     PrintLn "Please hang up now and try logging in again."
  117.     PrintLn 
  118.     KbdStuff "N" + Chr(13)
  119.     Goodbye
  120.     :LABEL004
  121.     PrintLn "@CLS@@X0E"
  122.     PrintLn "If you have realized that you were signing onto an account that wasn't yours"
  123.     PrintLn "you may call back and attempt to use a different user-id, perhaps adding a"
  124.     PrintLn "middle initial to make your logon-id unique for this system."
  125.     Goto LABEL003
  126.  
  127. ;------------------------------------------------------------------------------
  128. ;
  129. ; Usage report (before postprocessing)
  130. ;
  131. ; ■ Statements used :
  132. ;
  133. ;    1       End
  134. ;    1       More
  135. ;    1       Wait
  136. ;    4       Goto 
  137. ;    7       Let 
  138. ;    1       Print 
  139. ;    62      PrintLn 
  140. ;    3       If 
  141. ;    1       AdjTime 
  142. ;    3       InputYN 
  143. ;    5       InputText 
  144. ;    7       KbdStuff 
  145. ;    1       Goodbye
  146. ;
  147. ;
  148. ; ■ Functions used :
  149. ;
  150. ;    13      +
  151. ;    3       <>
  152. ;    8       Chr()
  153. ;    3       YesChar()
  154. ;
  155. ;------------------------------------------------------------------------------
  156. ;
  157. ; Analysis flags : A
  158. ;
  159. ; A - Adjust online time remaining ■ 5
  160. ;     Program modify the amount of online time remaining, this may
  161. ;     be a way to bypass time limits
  162. ;     ■ Search for : ADJTIME
  163. ;
  164. ;------------------------------------------------------------------------------
  165. ;
  166. ; Postprocessing report
  167. ;
  168. ;    0       For/Next
  169. ;    0       While/EndWhile
  170. ;    0       If/Then or If/Then/Else
  171. ;    0       Select Case
  172. ;
  173. ;------------------------------------------------------------------------------
  174. ;                 AEGiS Corp - Break the routines, code against the machines!
  175. ;------------------------------------------------------------------------------
  176.